Application.ModelessCmd("g40")
Application.ModelessCmd("gd40")
Application.StatusBarText = "Set Grids = 40"